object dmPrincipal: TdmPrincipal
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 339
  Top = 150
  Height = 485
  Width = 530
  object sqlConexao: TSQLConnection
    ConnectionName = 'sisAdmin'
    DriverName = 'UIB FireBird15'
    GetDriverFunc = 'getSQLDriverINTERBASE'
    LibraryName = 'dbexpUIBfire15.dll'
    LoginPrompt = False
    Params.Strings = (
      'DriverName=UIB FireBird15'
      'BlobSize=-1'
      'CommitRetain=False'
      'Database=localhost:c:\home\bd\saude_ash.fdb'
      'ErrorResourceFile='
      'LocaleCode=0000'
      'Password=masterkey'
      'RoleName=RoleName'
      'ServerCharSet=win1252'
      'SQLDialect=3'
      'Interbase TransIsolation=ReadCommited'
      'User_Name=sysdba'
      'WaitOnLocks=True'
      'str_relatorio=C:\home\atsfinanceiro\relatorio\')
    VendorLib = 'fbclient.dll'
    Left = 40
    Top = 64
  end
  object cdsCliente: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end>
    ProviderName = 'dspCliente'
    Left = 296
    Top = 296
  end
  object dspCliente: TDataSetProvider
    DataSet = sdsCliente
    Options = [poAllowCommandText]
    UpdateMode = upWhereKeyOnly
    Left = 216
    Top = 296
  end
  object sdsCliente: TSQLDataSet
    CommandText = 
      'select CODCLIENTE, NOMECLIENTE, RAZAOSOCIAL, CONTATO, TIPOFIRMA,' +
      ' CPF, CNPJ, INSCESTADUAL, RG, SEGMENTO, REGIAO, LIMITECREDITO, D' +
      'ATACADASTRO, CODUSUARIO, STATUS, HOMEPAGE, PRAZORECEBIMENTO, PRA' +
      'ZOENTREGA, CODBANCO, BASE_ICMS, DATANASC, CONTA_CLIENTE, OBS, TE' +
      'M_IE, ID_COB, DATARESC, NOMEMAE, SEXO, FORMA_CORRESPOND, GRUPO_C' +
      'LIENTE, CODINCLUCANC, EXIST_COBERT, EXISTCOPART, DATAREINC, GERA' +
      'AVISO, GERAENV, GERABOL, EMVIAGEM, DTAALTERA, SERIE, COD_FAIXA, ' +
      #13#10'cast(CASE WHEN COD_ANS is null THEN RA ELSE COD_ANS  END as  R' +
      'A '#13#10', UFNASC, LIVRONASC,'#13#10'(case when STATUS=0 then '#39'ATIVO'#39' else ' +
      #39'DESLIGADO'#39' end) as SITUACAO,'#13#10'(case when TIPOFIRMA=0 then '#39'FISI' +
      'CA'#39' else '#39'JURIDICA'#39' end) as TIPO'#13#10'from CLIENTES where  GRUPO_CLI' +
      'ENTE = '#39'ASH'#39' and CODCLIENTE = :pcod or :pcod = 0 ORDER BY NOMECL' +
      'IENTE'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end>
    SQLConnection = sqlConexao
    Left = 120
    Top = 296
  end
  object cdsEndereco: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'ENDER'
        ParamType = ptInput
      end>
    ProviderName = 'dspEndereco'
    Left = 288
    Top = 360
  end
  object dspEndereco: TDataSetProvider
    DataSet = sdsEndereco
    Options = [poAllowCommandText]
    UpdateMode = upWhereKeyOnly
    Left = 208
    Top = 360
  end
  object sdsEndereco: TSQLDataSet
    CommandText = 
      'select cast(ENDE.LOGRADOURO as char (50)) as LOGRADOURO ,cast(EN' +
      'DE.BAIRRO as char(30)) as BAIRRO ,'#13#10'cast(ENDE.CIDADE as char (30' +
      ')) as CIDADE,ENDE.UF , ENDE.CEP , cast(ENDE.RAMAL as char (5)) a' +
      's NUMERO , dadosadicionais'#13#10' from ENDERECOCLIENTE ENDE WHERE END' +
      'E.CODCLIENTE = :ENDER'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'ENDER'
        ParamType = ptInput
      end>
    SQLConnection = sqlConexao
    Left = 112
    Top = 360
  end
  object dscliente: TDataSource
    DataSet = cdsCliente
    Left = 376
    Top = 304
  end
  object cdsTitular: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'pcodi'
        ParamType = ptInput
      end>
    ProviderName = 'dsptitular'
    Left = 288
    Top = 216
    object cdsTitularCODCLIENTE: TIntegerField
      FieldName = 'CODCLIENTE'
      Required = True
    end
    object cdsTitularNOMECLIENTE: TStringField
      FieldName = 'NOMECLIENTE'
      Required = True
      Size = 50
    end
    object cdsTitularRAZAOSOCIAL: TStringField
      FieldName = 'RAZAOSOCIAL'
      Required = True
      Size = 50
    end
    object cdsTitularCONTATO: TStringField
      FieldName = 'CONTATO'
      Size = 30
    end
    object cdsTitularTIPOFIRMA: TSmallintField
      FieldName = 'TIPOFIRMA'
      Required = True
    end
    object cdsTitularCPF: TStringField
      FieldName = 'CPF'
      Size = 14
    end
    object cdsTitularCNPJ: TStringField
      FieldName = 'CNPJ'
      Size = 18
    end
    object cdsTitularINSCESTADUAL: TStringField
      FieldName = 'INSCESTADUAL'
      Size = 24
    end
    object cdsTitularRG: TStringField
      FieldName = 'RG'
      Size = 14
    end
    object cdsTitularSEGMENTO: TSmallintField
      FieldName = 'SEGMENTO'
      Required = True
    end
    object cdsTitularREGIAO: TSmallintField
      FieldName = 'REGIAO'
      Required = True
    end
    object cdsTitularLIMITECREDITO: TFloatField
      FieldName = 'LIMITECREDITO'
    end
    object cdsTitularDATACADASTRO: TDateField
      FieldName = 'DATACADASTRO'
      Required = True
    end
    object cdsTitularCODUSUARIO: TIntegerField
      FieldName = 'CODUSUARIO'
      Required = True
    end
    object cdsTitularSTATUS: TSmallintField
      FieldName = 'STATUS'
      Required = True
    end
    object cdsTitularHOMEPAGE: TStringField
      FieldName = 'HOMEPAGE'
      Size = 40
    end
    object cdsTitularPRAZORECEBIMENTO: TSmallintField
      FieldName = 'PRAZORECEBIMENTO'
    end
    object cdsTitularPRAZOENTREGA: TSmallintField
      FieldName = 'PRAZOENTREGA'
    end
    object cdsTitularCODBANCO: TSmallintField
      FieldName = 'CODBANCO'
    end
    object cdsTitularBASE_ICMS: TSmallintField
      FieldName = 'BASE_ICMS'
    end
    object cdsTitularDATANASC: TDateField
      FieldName = 'DATANASC'
    end
    object cdsTitularCONTA_CLIENTE: TStringField
      FieldName = 'CONTA_CLIENTE'
      Size = 15
    end
    object cdsTitularOBS: TStringField
      FieldName = 'OBS'
      Size = 200
    end
    object cdsTitularTEM_IE: TStringField
      FieldName = 'TEM_IE'
      FixedChar = True
      Size = 1
    end
    object cdsTitularID_COB: TIntegerField
      FieldName = 'ID_COB'
    end
    object cdsTitularDATARESC: TDateField
      FieldName = 'DATARESC'
    end
    object cdsTitularNOMEMAE: TStringField
      FieldName = 'NOMEMAE'
      Size = 80
    end
    object cdsTitularSEXO: TStringField
      FieldName = 'SEXO'
      FixedChar = True
      Size = 1
    end
    object cdsTitularFORMA_CORRESPOND: TStringField
      FieldName = 'FORMA_CORRESPOND'
      Size = 30
    end
    object cdsTitularGRUPO_CLIENTE: TStringField
      FieldName = 'GRUPO_CLIENTE'
      Size = 30
    end
    object cdsTitularCODINCLUCANC: TIntegerField
      FieldName = 'CODINCLUCANC'
    end
    object cdsTitularEXIST_COBERT: TStringField
      FieldName = 'EXIST_COBERT'
      Size = 6
    end
    object cdsTitularEXISTCOPART: TStringField
      FieldName = 'EXISTCOPART'
      Size = 6
    end
    object cdsTitularDATAREINC: TDateField
      FieldName = 'DATAREINC'
    end
    object cdsTitularGERAAVISO: TStringField
      FieldName = 'GERAAVISO'
      FixedChar = True
      Size = 1
    end
    object cdsTitularGERAENV: TStringField
      FieldName = 'GERAENV'
      FixedChar = True
      Size = 1
    end
    object cdsTitularGERABOL: TStringField
      FieldName = 'GERABOL'
      FixedChar = True
      Size = 1
    end
    object cdsTitularEMVIAGEM: TStringField
      FieldName = 'EMVIAGEM'
      FixedChar = True
      Size = 1
    end
    object cdsTitularDTAALTERA: TDateField
      FieldName = 'DTAALTERA'
    end
    object cdsTitularSERIE: TStringField
      FieldName = 'SERIE'
      Size = 4
    end
    object cdsTitularCOD_FAIXA: TIntegerField
      FieldName = 'COD_FAIXA'
    end
    object cdsTitularRA: TStringField
      FieldName = 'RA'
      Size = 10
    end
    object cdsTitularSITUACAOESCOLAR: TIntegerField
      FieldName = 'SITUACAOESCOLAR'
      ReadOnly = True
    end
    object cdsTitularLIVRONASC: TStringField
      FieldName = 'LIVRONASC'
      ReadOnly = True
      Size = 10
    end
    object cdsTitularUFNASC: TStringField
      FieldName = 'UFNASC'
      ReadOnly = True
      Size = 2
    end
  end
  object dsptitular: TDataSetProvider
    DataSet = sdsTitular
    Options = [poAllowCommandText]
    UpdateMode = upWhereKeyOnly
    Left = 208
    Top = 216
  end
  object sdsTitular: TSQLDataSet
    CommandText = 
      'select CODCLIENTE, NOMECLIENTE, RAZAOSOCIAL, CONTATO, TIPOFIRMA,' +
      ' CPF, CNPJ, INSCESTADUAL, RG, SEGMENTO, REGIAO, LIMITECREDITO, D' +
      'ATACADASTRO, CODUSUARIO, STATUS, HOMEPAGE, PRAZORECEBIMENTO, PRA' +
      'ZOENTREGA, CODBANCO, BASE_ICMS, DATANASC, CONTA_CLIENTE, OBS, TE' +
      'M_IE, ID_COB, DATARESC, NOMEMAE, SEXO, FORMA_CORRESPOND, GRUPO_C' +
      'LIENTE, CODINCLUCANC, EXIST_COBERT, EXISTCOPART, DATAREINC, GERA' +
      'AVISO, GERAENV, GERABOL, EMVIAGEM, DTAALTERA, SERIE, COD_FAIXA, ' +
      #13#10'cast(CASE WHEN COD_ANS is null THEN RA ELSE COD_ANS  END as ch' +
      'ar (30))as RA ,'#13#10'cast(SITUACAOESCOLAR as integer ) as  SITUACAOE' +
      'SCOLAR , LIVRONASC , ufnasc'#13#10'from CLIENTES where RAZAOSOCIAL = :' +
      'pcodi  AND SEGMENTO = 0 '#13#10'and GRUPO_CLIENTE  = '#39'ASH'#39' ORDER BY NO' +
      'MECLIENTE '
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'pcodi'
        ParamType = ptInput
      end>
    SQLConnection = sqlConexao
    Left = 112
    Top = 216
  end
  object sqlEmpresa: TSQLDataSet
    CommandText = 'select DIVERSOS1, anoletivo  from EMPRESA'
    DataSource = dsEmpresa
    MaxBlobSize = -1
    Params = <>
    SQLConnection = sqlConexao
    Left = 120
    Top = 136
    object sqlEmpresaDIVERSOS1: TStringField
      FieldName = 'DIVERSOS1'
      Size = 50
    end
    object sqlEmpresaANOLETIVO: TIntegerField
      FieldName = 'ANOLETIVO'
    end
  end
  object dsEmpresa: TDataSource
    Left = 368
    Top = 144
  end
  object cdsEmpresa: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspEmpresa'
    Left = 296
    Top = 136
    object cdsEmpresaDIVERSOS1: TStringField
      FieldName = 'DIVERSOS1'
      Size = 50
    end
    object cdsEmpresaANOLETIVO: TIntegerField
      FieldName = 'ANOLETIVO'
    end
  end
  object dspEmpresa: TDataSetProvider
    DataSet = sqlEmpresa
    Left = 200
    Top = 136
  end
  object sdsTodos: TSQLDataSet
    CommandText = 
      'select CODCLIENTE, NOMECLIENTE, RAZAOSOCIAL, CONTATO, TIPOFIRMA,' +
      ' CPF, CNPJ, INSCESTADUAL, RG, SEGMENTO, REGIAO, LIMITECREDITO, D' +
      'ATACADASTRO, CODUSUARIO, STATUS, HOMEPAGE, PRAZORECEBIMENTO, PRA' +
      'ZOENTREGA, CODBANCO, BASE_ICMS, DATANASC, CONTA_CLIENTE, OBS, TE' +
      'M_IE, ID_COB, DATARESC, NOMEMAE, SEXO, FORMA_CORRESPOND, GRUPO_C' +
      'LIENTE, CODINCLUCANC, EXIST_COBERT, EXISTCOPART, DATAREINC, GERA' +
      'AVISO, GERAENV, GERABOL, EMVIAGEM, DTAALTERA, SERIE, COD_FAIXA, ' +
      'cast(RA as char (30)) as RA ,'#13#10'cast(SITUACAOESCOLAR as integer )' +
      ' as  SITUACAOESCOLAR , LIVRONASC , ufnasc ,estadorg '#13#10'from CLIEN' +
      'TES where NOMECLIENTE = :pcodi  AND LIVRONASC = :CCO AND ufnasc ' +
      '= :DCCO AND DATARESC = :DRES'#13#10' and  estadorg = :motivo AND SEGME' +
      'NTO = 0 '#13#10'and GRUPO_CLIENTE  = '#39'ASH'#39' ORDER BY NOMECLIENTE '
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'pcodi'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'CCO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'DCCO'
        ParamType = ptInput
      end
      item
        DataType = ftDate
        Name = 'DRES'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'motivo'
        ParamType = ptInput
      end>
    SQLConnection = sqlConexao
    Left = 144
    Top = 56
    object sdsTodosCODCLIENTE: TIntegerField
      FieldName = 'CODCLIENTE'
      Required = True
    end
    object sdsTodosNOMECLIENTE: TStringField
      FieldName = 'NOMECLIENTE'
      Required = True
      Size = 50
    end
    object sdsTodosRAZAOSOCIAL: TStringField
      FieldName = 'RAZAOSOCIAL'
      Required = True
      Size = 50
    end
    object sdsTodosCONTATO: TStringField
      FieldName = 'CONTATO'
      Size = 30
    end
    object sdsTodosTIPOFIRMA: TSmallintField
      FieldName = 'TIPOFIRMA'
      Required = True
    end
    object sdsTodosCPF: TStringField
      FieldName = 'CPF'
      Size = 14
    end
    object sdsTodosCNPJ: TStringField
      FieldName = 'CNPJ'
      Size = 18
    end
    object sdsTodosINSCESTADUAL: TStringField
      FieldName = 'INSCESTADUAL'
      Size = 24
    end
    object sdsTodosRG: TStringField
      FieldName = 'RG'
      Size = 14
    end
    object sdsTodosSEGMENTO: TSmallintField
      FieldName = 'SEGMENTO'
      Required = True
    end
    object sdsTodosREGIAO: TSmallintField
      FieldName = 'REGIAO'
      Required = True
    end
    object sdsTodosLIMITECREDITO: TFloatField
      FieldName = 'LIMITECREDITO'
    end
    object sdsTodosDATACADASTRO: TDateField
      FieldName = 'DATACADASTRO'
      Required = True
    end
    object sdsTodosCODUSUARIO: TIntegerField
      FieldName = 'CODUSUARIO'
      Required = True
    end
    object sdsTodosSTATUS: TSmallintField
      FieldName = 'STATUS'
      Required = True
    end
    object sdsTodosHOMEPAGE: TStringField
      FieldName = 'HOMEPAGE'
      Size = 40
    end
    object sdsTodosPRAZORECEBIMENTO: TSmallintField
      FieldName = 'PRAZORECEBIMENTO'
    end
    object sdsTodosPRAZOENTREGA: TSmallintField
      FieldName = 'PRAZOENTREGA'
    end
    object sdsTodosCODBANCO: TSmallintField
      FieldName = 'CODBANCO'
    end
    object sdsTodosBASE_ICMS: TSmallintField
      FieldName = 'BASE_ICMS'
    end
    object sdsTodosDATANASC: TDateField
      FieldName = 'DATANASC'
    end
    object sdsTodosCONTA_CLIENTE: TStringField
      FieldName = 'CONTA_CLIENTE'
      Size = 15
    end
    object sdsTodosOBS: TStringField
      FieldName = 'OBS'
      Size = 200
    end
    object sdsTodosTEM_IE: TStringField
      FieldName = 'TEM_IE'
      FixedChar = True
      Size = 1
    end
    object sdsTodosID_COB: TIntegerField
      FieldName = 'ID_COB'
    end
    object sdsTodosDATARESC: TDateField
      FieldName = 'DATARESC'
    end
    object sdsTodosNOMEMAE: TStringField
      FieldName = 'NOMEMAE'
      Size = 80
    end
    object sdsTodosSEXO: TStringField
      FieldName = 'SEXO'
      FixedChar = True
      Size = 1
    end
    object sdsTodosFORMA_CORRESPOND: TStringField
      FieldName = 'FORMA_CORRESPOND'
      Size = 30
    end
    object sdsTodosGRUPO_CLIENTE: TStringField
      FieldName = 'GRUPO_CLIENTE'
      Size = 30
    end
    object sdsTodosCODINCLUCANC: TIntegerField
      FieldName = 'CODINCLUCANC'
    end
    object sdsTodosEXIST_COBERT: TStringField
      FieldName = 'EXIST_COBERT'
      Size = 6
    end
    object sdsTodosEXISTCOPART: TStringField
      FieldName = 'EXISTCOPART'
      Size = 6
    end
    object sdsTodosDATAREINC: TDateField
      FieldName = 'DATAREINC'
    end
    object sdsTodosGERAAVISO: TStringField
      FieldName = 'GERAAVISO'
      FixedChar = True
      Size = 1
    end
    object sdsTodosGERAENV: TStringField
      FieldName = 'GERAENV'
      FixedChar = True
      Size = 1
    end
    object sdsTodosGERABOL: TStringField
      FieldName = 'GERABOL'
      FixedChar = True
      Size = 1
    end
    object sdsTodosEMVIAGEM: TStringField
      FieldName = 'EMVIAGEM'
      FixedChar = True
      Size = 1
    end
    object sdsTodosDTAALTERA: TDateField
      FieldName = 'DTAALTERA'
    end
    object sdsTodosSERIE: TStringField
      FieldName = 'SERIE'
      Size = 4
    end
    object sdsTodosCOD_FAIXA: TIntegerField
      FieldName = 'COD_FAIXA'
    end
    object sdsTodosRA: TStringField
      FieldName = 'RA'
      ReadOnly = True
      FixedChar = True
      Size = 30
    end
    object sdsTodosSITUACAOESCOLAR: TIntegerField
      FieldName = 'SITUACAOESCOLAR'
      ReadOnly = True
    end
    object sdsTodosLIVRONASC: TStringField
      FieldName = 'LIVRONASC'
      ReadOnly = True
      Size = 10
    end
    object sdsTodosUFNASC: TStringField
      FieldName = 'UFNASC'
      ReadOnly = True
      Size = 2
    end
    object sdsTodosESTADORG: TStringField
      FieldName = 'ESTADORG'
      ReadOnly = True
      FixedChar = True
      Size = 2
    end
  end
  object dspTodos: TDataSetProvider
    DataSet = sdsTodos
    Options = [poAllowCommandText]
    UpdateMode = upWhereKeyOnly
    Left = 240
    Top = 56
  end
  object dsTodos: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'pcodi'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'CCO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'DCCO'
        ParamType = ptInput
      end
      item
        DataType = ftDate
        Name = 'DRES'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'motivo'
        ParamType = ptInput
      end>
    ProviderName = 'dspTodos'
    Left = 320
    Top = 56
    object dsTodosCODCLIENTE: TIntegerField
      FieldName = 'CODCLIENTE'
      Required = True
    end
    object dsTodosNOMECLIENTE: TStringField
      FieldName = 'NOMECLIENTE'
      Required = True
      Size = 50
    end
    object dsTodosRAZAOSOCIAL: TStringField
      FieldName = 'RAZAOSOCIAL'
      Required = True
      Size = 50
    end
    object dsTodosCONTATO: TStringField
      FieldName = 'CONTATO'
      Size = 30
    end
    object dsTodosTIPOFIRMA: TSmallintField
      FieldName = 'TIPOFIRMA'
      Required = True
    end
    object dsTodosCPF: TStringField
      FieldName = 'CPF'
      Size = 14
    end
    object dsTodosCNPJ: TStringField
      FieldName = 'CNPJ'
      Size = 18
    end
    object dsTodosINSCESTADUAL: TStringField
      FieldName = 'INSCESTADUAL'
      Size = 24
    end
    object dsTodosRG: TStringField
      FieldName = 'RG'
      Size = 14
    end
    object dsTodosSEGMENTO: TSmallintField
      FieldName = 'SEGMENTO'
      Required = True
    end
    object dsTodosREGIAO: TSmallintField
      FieldName = 'REGIAO'
      Required = True
    end
    object dsTodosLIMITECREDITO: TFloatField
      FieldName = 'LIMITECREDITO'
    end
    object dsTodosDATACADASTRO: TDateField
      FieldName = 'DATACADASTRO'
      Required = True
    end
    object dsTodosCODUSUARIO: TIntegerField
      FieldName = 'CODUSUARIO'
      Required = True
    end
    object dsTodosSTATUS: TSmallintField
      FieldName = 'STATUS'
      Required = True
    end
    object dsTodosHOMEPAGE: TStringField
      FieldName = 'HOMEPAGE'
      Size = 40
    end
    object dsTodosPRAZORECEBIMENTO: TSmallintField
      FieldName = 'PRAZORECEBIMENTO'
    end
    object dsTodosPRAZOENTREGA: TSmallintField
      FieldName = 'PRAZOENTREGA'
    end
    object dsTodosCODBANCO: TSmallintField
      FieldName = 'CODBANCO'
    end
    object dsTodosBASE_ICMS: TSmallintField
      FieldName = 'BASE_ICMS'
    end
    object dsTodosDATANASC: TDateField
      FieldName = 'DATANASC'
    end
    object dsTodosCONTA_CLIENTE: TStringField
      FieldName = 'CONTA_CLIENTE'
      Size = 15
    end
    object dsTodosOBS: TStringField
      FieldName = 'OBS'
      Size = 200
    end
    object dsTodosTEM_IE: TStringField
      FieldName = 'TEM_IE'
      FixedChar = True
      Size = 1
    end
    object dsTodosID_COB: TIntegerField
      FieldName = 'ID_COB'
    end
    object dsTodosDATARESC: TDateField
      FieldName = 'DATARESC'
    end
    object dsTodosNOMEMAE: TStringField
      FieldName = 'NOMEMAE'
      Size = 80
    end
    object dsTodosSEXO: TStringField
      FieldName = 'SEXO'
      FixedChar = True
      Size = 1
    end
    object dsTodosFORMA_CORRESPOND: TStringField
      FieldName = 'FORMA_CORRESPOND'
      Size = 30
    end
    object dsTodosGRUPO_CLIENTE: TStringField
      FieldName = 'GRUPO_CLIENTE'
      Size = 30
    end
    object dsTodosCODINCLUCANC: TIntegerField
      FieldName = 'CODINCLUCANC'
    end
    object dsTodosEXIST_COBERT: TStringField
      FieldName = 'EXIST_COBERT'
      Size = 6
    end
    object dsTodosEXISTCOPART: TStringField
      FieldName = 'EXISTCOPART'
      Size = 6
    end
    object dsTodosDATAREINC: TDateField
      FieldName = 'DATAREINC'
    end
    object dsTodosGERAAVISO: TStringField
      FieldName = 'GERAAVISO'
      FixedChar = True
      Size = 1
    end
    object dsTodosGERAENV: TStringField
      FieldName = 'GERAENV'
      FixedChar = True
      Size = 1
    end
    object dsTodosGERABOL: TStringField
      FieldName = 'GERABOL'
      FixedChar = True
      Size = 1
    end
    object dsTodosEMVIAGEM: TStringField
      FieldName = 'EMVIAGEM'
      FixedChar = True
      Size = 1
    end
    object dsTodosDTAALTERA: TDateField
      FieldName = 'DTAALTERA'
    end
    object dsTodosSERIE: TStringField
      FieldName = 'SERIE'
      Size = 4
    end
    object dsTodosCOD_FAIXA: TIntegerField
      FieldName = 'COD_FAIXA'
    end
    object dsTodosRA: TStringField
      FieldName = 'RA'
      ReadOnly = True
      FixedChar = True
      Size = 30
    end
    object dsTodosSITUACAOESCOLAR: TIntegerField
      FieldName = 'SITUACAOESCOLAR'
      ReadOnly = True
    end
    object dsTodosLIVRONASC: TStringField
      FieldName = 'LIVRONASC'
      ReadOnly = True
      Size = 10
    end
    object dsTodosUFNASC: TStringField
      FieldName = 'UFNASC'
      ReadOnly = True
      Size = 2
    end
    object dsTodosESTADORG: TStringField
      FieldName = 'ESTADORG'
      ReadOnly = True
      FixedChar = True
      Size = 2
    end
  end
end
